home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
get koalapic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
63 lines
100 REM DISPLAY KOALA PIC V2.1
110 REM (C) 1984 BY MICHAEL A. MEISZL
120 REM ====================================================================
122 : REM ACHTUNG: DAS PROGRAMM ENTHAELT PRUEFSUMMEN, SO DASS SIE FEHLER ...
124 REM ... LEICHTER dMEN KOENNEN, BES. IN DEN DATA ZEILEN!
126 REM ====================================================================
130 A=52500:E=A+335:ZL=9990:POKE53281,0:POKE53280,0
140 PRINT"[147][158][142]KOALA PAINTER DISPLAY
150 [153]"SYS 52500,"[199](34)"NAME"[199](34)"[,GERAETENUMMER]
160 PRINT,"=> LOAD + ANZEIGE":PRINT,"(ENDE MIT 'SPACE')
170 [153]"SYS 52503
180 PRINT,"=> NUR ANZEIGE
190 [153]"SYS 52506
200 PRINT,"=> BILDSCHIRM WIEDER NORMAL
210 [153]"SYS 52509,"[199](34)"NAME"[199](34)"[,GERAETENUMMER]
220 PRINT,"=> BILD LADEN":PRINT:PRINT
230 FORI=ATOESTEP8:ZL=ZL+10
240 CH=0:FORJ=0TO7:READX:CH=CH+X:POKEI+J,X:NEXT
250 READCK:IFCK<>CHTHENPRINT"DATA ERROR IN ZEILE"ZL:END
260 NEXT:PRINT"[159]PROGRAMM BEREIT
10000 [131]76,32,205,76,145,205,76,79, 894
10010 [131]206,76,47,205,32,47,205,32, 850
10020 [131]145,205,32,228,255,201,32,208, 1306
10030 [131]249,240,235,32,66,206,32,87, 1147
10040 [131]226,201,9,144,3,76,88,182, 929
10050 [131]160,9,169,32,153,97,206,136, 962
10060 [131]208,250,177,187,153,98,206,200, 1479
10070 [131]196,183,144,246,169,15,162,91, 1206
10080 [131]160,206,32,189,255,162,8,32, 1044
10090 [131]121,0,201,44,208,3,32,155, 764
10100 [131]183,169,111,160,0,32,186,255, 1096
10110 [131]32,131,205,169,0,162,0,160, 859
10120 [131]160,32,213,255,8,32,138,205, 1043
10130 [131]40,176,1,96,76,156,225,165, 935
10140 [131]1,41,254,133,1,96,165,1, 692
10150 [131]9,1,133,1,96,173,17,208, 638
10160 [131]41,239,141,17,208,32,131,205, 1014
10170 [131]162,191,160,64,32,56,206,162, 1033
10180 [131]200,160,0,32,61,206,162,195, 1016
10190 [131]160,39,32,14,206,162,195,160, 968
10200 [131]40,32,56,206,162,216,160,0, 872
10210 [131]32,61,206,162,199,160,15,32, 867
10220 [131]14,206,173,16,199,141,33,208, 990
10230 [131]141,32,208,173,17,208,9,34, 822
10240 [131]141,17,208,173,22,208,41,223, 1033
10250 [131]9,16,141,22,208,169,40,141, 746
10260 [131]24,208,162,160,160,0,32,56, 802
10270 [131]206,162,224,160,0,32,61,206, 1051
10280 [131]162,191,160,63,32,14,206,173, 1001
10290 [131]0,221,41,248,141,0,221,173, 1045
10300 [131]17,208,9,16,141,17,208,76, 692
10310 [131]138,205,142,106,206,140,107,206, 1250
10320 [131]160,0,177,251,145,253,165,252, 1403
10330 [131]205,106,206,208,8,165,251,205, 1354
10340 [131]107,206,208,1,96,230,251,208, 1307
10350 [131]2,230,252,230,253,208,227,230, 1632
10360 [131]254,76,22,206,134,252,132,251, 1327
10370 [131]96,134,254,132,253,96,32,121, 1118
10380 [131]0,201,44,208,3,76,115,0, 647
10390 [131]76,8,175,32,129,255,173,0, 848
10400 [131]221,9,3,141,0,221,96,129, 820
10410 [131]80,73,67,32,63,32,0,0, 347